*****************************************
*     PROGRAMME ADDITION                                     *
*     PIC 16F88                                                                       *
*    Ce programme ralise une addition et envoi           *
*     le rsultat sur le port B dclar en sortie                 *
*****************************************
* Dclaration des registres temporaires
retard1 EQU 33 ;


* passage port B en sortie
CLRW                           ; raz registre de travail
BSF STATUS,5          ; passage bank 1 pour accs trisb
MOVWF trisb             ; port B en sortie

BCF STATUS,5          ; passage bank 0
MOVLW 1                    ; 1 => reg w
MOVWF retard1         ; envoi w sur @retard1

:debut            ;
                 
MOVWF PORTB       ; envoi w sur port B
ADDWF retard1,w    ; addition w+contenu@retard1 => w
goto debut                    ; @PC =@debut

END                               ; Fin du programme


































































































































